home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Stretching the Mind / Modulated Brownian Waves < prev    next >
Lisp/Scheme  |  1997-06-06  |  1KB  |  42 lines
  1. ; modulated brownian waves
  2. ; visualizer vector-round outputs, change values
  3.  
  4. (setq spatmod1 
  5.       (vector-scale -2 1 
  6.                     (list-to-vector 
  7.                      (gen-fibonacci-trans 3 '(1 2 3) '(4 5 6)))))
  8.  
  9. (vector-round 20 100
  10.               (gen-noise-brownian 9 0.8593 0.1 spatmod1 5))
  11.  
  12. ; 
  13.  
  14. (setq spatmod1 
  15.       (vector-scale -2 1 
  16.                     (list-to-vector 
  17.                      (gen-fibonacci-trans 3 '(1 2 3) '(4 5 6)))))
  18.  
  19. (vector-round 30 70
  20.               (gen-noise-brownian 9 0.8593 0.3 spatmod1 5))
  21.  
  22. ; 
  23.  
  24. (setq spatmod2 
  25.       (vector-scale -2 2 
  26.                     (list-to-vector 
  27.                      (gen-fibonacci-trans 5 '(-30 50) '(10 11 12)))))
  28.  
  29. (vector-round 20 90
  30.               (gen-noise-brownian 9 0.8593 0.9 spatmod2 20))
  31.  
  32. ; 
  33.  
  34. (setq spatmod2 
  35.       (vector-scale -2 2 
  36.                     (list-to-vector 
  37.                      (gen-fibonacci-trans 5 '(-30 50) '(10 11 12)))))
  38.  
  39. (vector-round 20 90
  40.               (gen-noise-brownian 9 0.8593 0.9 spatmod2 25))
  41.  
  42.